MACD 5/MACD 5.bin/workbench/libs/asl420lib.lha/asl_v42.0/Install/Install

Text File | 1995-07-10 | 6KB | 236 lines

;
;              asl.library © 1995 Miîosîaw Smyk & Marcin Orîowski
;
;           ---------------------------------------------------------
;
;               ###    ###    #########  ###    ###    ###    ###
;               ###    ###    ###        ####  ####    ###    ###
;               ###    ###    ###        ### ## ###    ###    ###
;               ###    ###    ########   ### ## ###    ##########
;               ### ## ###    ########   ###    ###    ##########
;               ### ## ###    ###        ###    ###    ###    ###
;               ####  #### ## ###     ## ###    ### ## ###    ### ##
;               ###    ### ## ###     ## ###    ### ## ###    ### ##
;
;           ---------------------------------------------------------
;
;                       Mental Pictures Developed Here
;
;               Miloslaw Smyk                   Marcin Orlowski
;               Orawska 22/34                   ul. Radomska 38
;               70-131 Szczecin                 71-002 Szczecin
;               Poland                          Poland
;
;               SilverDream!'s BBS:  [phone]  (24h non-stop)
;                               GlobalNet: 52:4800/6
;                               FidoNet  :  2:481/22.2
;
;               Internet:       [e-mail]
;                               [e-mail]
;
;               WWW page:
;               http://dedal.univ.szczecin.pl/~thorgal/ASL/asl.html
;
;
;--------------------------------------------------------------------
;
;                  W.F.M.H. asl.library v42+ Installer script
;
;--------------------------------------------------------------------
;
; $VER: Installer of asl v42.0 (01.07.95) © Marcin Orlowski
;

(set OS_Version (getversion "LIBS:asl.library") )
(if (AND ((<> OS_Version 2555908) (<> OS_Version 2621446)) 0)
    (abort  "\nTo use asl.library v42.0\n"
        "you need one of the following versions\n"
        "of original asl.library to patch:\n\n"
        "OS3.0  -  v39.4\n"
        "OS3.1  -  v40.6\n"
    )
)

(if (= OS_Version 2752512)
    (abort  "\n\nYou already have installed\n"
        "asl.library v42.0\n"
        "and there's no point to install it again..."
    )
)



(complete 0)
(welcome
    "\n"
    " ###    ###    #########  ###    ###    ###    ###\n"
    " ###    ###    ###        ####  ####    ###    ###\n"
    " ###    ###    ###        ### ## ###    ###    ###\n"
    " ###    ###    ########   ### ## ###    ##########\n"
    " ### ## ###    ########   ###    ###    ##########\n"
    " ### ## ###    ###        ###    ###    ###    ###\n"
    " ####  #### ## ###     ## ###    ### ## ###    ###\n"
    " ###    ### ## ###     ## ###    ### ## ###    ###\n"
    "\n"
    "      ------------------------------------------\n"
    "            asl.library 42.0  (01.07.1995)\n"
    "      ------------------------------------------"
)

;********************

(if (= OS_Version 2555908)
    (set System 0)
)
(if (= OS_Version 2621446)
    (set System 1)
)

;********************

(set PrefsMode
  (askchoice
     (prompt  "Select preferred type of prefs program")
     (help    "\n\n\n\n"
              "        In this release you have no choice\n"
              "        and must select MUI prefs program\n"
              "             if you like it or not...")
     (choices "AslPrefs (MUI)")
  )
)

(if (= PrefsMode 0)
    (copyfiles
      (source "Prefs/AslPrefsMUI")
          (dest "SYS:Prefs/")
        (infos)
      )
)
(complete 20)

;********************

;(set Languages
;    (askoptions
;          (prompt  "Select languages for prefs program\n"
;               "(english is built-in language)"
;    )
;     (help    @askoptions-help)
;           (choices
;                "Polski"
;    )
;    (default 0)
;    )
;)

;********************

(set DOC_Type
     (askoptions
          (prompt  "Select manual form")
             (help    @askoptions-help)
           (choices
                " AmigaGuide"
        )

       )
)

(if (> DOC_Type 0)
 (
  (

  (set Dok_dest
     (tackon
        (askdir
            (default @default-dest)
            (prompt  "Where do you want the manual to be placed in:\n"
                 "(drawer \"Asl Manual\" will be created)")
            (help   @askdir-help)
                )
        "Asl Manual"
    )
  )

  (makedir Dok_dest (infos))

  (if (bitand DOC_Type 1)
   (
   (copyfiles
      (source "/Docs/")
      (dest Dok_dest)
      (infos)
      (all)
    )
   )
  )

  )
 )
)
(complete 40)

(working "Creating work files...")
(if (= System 0)
    (set err (run "c/spatch -ppatch/asl.library.39.4.pch -oLIBS:asl.library.new LIBS:asl.library"))
)
(if (= System 1)
    (set err (run "c/spatch -ppatch/asl.library.40.6.pch -oLIBS:asl.library.new LIBS:asl.library"))
)
(if (<> err 0)
    (
    (run "delete >nil: LIBS:asl.library")
    (abort "Patching has failed...")
    )
)
(complete 60)

(working "Switching libraries as:\n"
     "LIBS:asl.library.old\n\n"
     "and creating the new one..."
)
(run "rename >nil: LIBS:asl.library LIBS:asl.library.old")
(run "delete >nil: LIBS:asl.library")
(run "rename >nil: LIBS:asl.library.new LIBS:asl.library")
(complete 80)


(working "...and finally we clean up...")

(if (= DOC_Type 0)
    (set Info_Text
     (cat "To become master of asl please\n"
     "read manual carefully. But it seems\n"
     "you already know everything because\n"
     "you didn't want any documentation...\n\n"
     )
    )
    (set Info_Text
      (cat "To become master of asl please\n"
     "carefully read installed manual\n"
     "placed in the drawer:\n\""
     Dok_dest
     "/\"\n\n"
     )
    )
)
(message "\nDone!\n"
     "---------\n"
     "Now you must reset your Amiga\n"
     "to enjoy this release of asl\n\n"
     Info_Text
     " © 1995 World Federation of Mad Hackers\n"
     "Miloslaw Smyk & Marcin Orlowski\n"
)

(complete 100)
(message "\n\nFor more information, latest update\n"
     "and the support files look at the\n"
     "dedicated WWW page:\n\n"
     "http://dedal.univ.szczecin.pl/~thorgal/ASL/asl.html\n\n\n"
     "Check also our support BBS:\n\n"
     "SilverDream!'s BBS:  [phone]  (non-stop)"
)

(exit (QUIET))